home *** CD-ROM | disk | FTP | other *** search
/ Design Mapio / Design Mapio.iso / pc / browser.dxr / 00052.ls < prev    next >
Encoding:
Text File  |  1997-01-29  |  644 b   |  29 lines
  1. on pushbtn
  2.   puppetSound("Click")
  3.   set btncn to the castNum of sprite clickOn()
  4.   repeat while the stillDown
  5.     if rollOver(clickOn()) then
  6.       set the castNum of sprite clickOn() to btncn + 1
  7.     else
  8.       set the castNum of sprite clickOn() to btncn
  9.     end if
  10.     updateStage()
  11.   end repeat
  12.   set the castNum of sprite clickOn() to btncn
  13.   updateStage()
  14. end
  15.  
  16. on pushButton
  17.   global gmarker
  18.   set sp to clickOn()
  19.   puppetSound("Click")
  20.   puppetSprite(sp, 1)
  21.   set the castNum of sprite sp to the castNum of sprite sp + 1
  22.   updateStage()
  23.   repeat while soundBusy(1)
  24.   end repeat
  25.   puppetSound(0)
  26.   puppetSprite(sp, 0)
  27.   updateStage()
  28. end
  29.